9 lines
216 B
Scheme
9 lines
216 B
Scheme
;; In Emacs, open this file in -*- Scheme -*- mode
|
|
|
|
;; Test the @char->int primitive
|
|
|
|
(@byte-write 66)
|
|
|
|
(@byte-write (@char->int 'A')) ;A
|
|
(@byte-write (if (@= (@char->int '€') 8364) 66 63)) ;B
|