Init
This commit is contained in:
9
cs420-acc/l3-warmup/tests/prim-int-to-char.l3
Normal file
9
cs420-acc/l3-warmup/tests/prim-int-to-char.l3
Normal file
@@ -0,0 +1,9 @@
|
||||
;; In Emacs, open this file in -*- Scheme -*- mode
|
||||
|
||||
;; Test the @int->char primitive
|
||||
|
||||
(@byte-write 66)
|
||||
|
||||
(@byte-write (if (@= (@int->char 65) 'A') 65 63)) ;A
|
||||
(@byte-write (if (@= (@int->char 8364) '€') 66 63)) ;B
|
||||
|
Reference in New Issue
Block a user