10 lines
217 B
Plaintext
10 lines
217 B
Plaintext
|
;; 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
|
||
|
|
|