20 lines
793 B
Plaintext
20 lines
793 B
Plaintext
|
;; In Emacs, open this file in -*- Scheme -*- mode
|
||
|
|
|
||
|
|
;; Test the @= primitive
|
||
|
|
|
||
|
|
(@byte-write 76)
|
||
|
|
|
||
|
|
(@byte-write (if (@= #t #t) 65 63)) ;A
|
||
|
|
(@byte-write (if (@= #f #f) 66 63)) ;B
|
||
|
|
(@byte-write (if (@= 2018 2018) 67 63)) ;C
|
||
|
|
(@byte-write (if (@= 'A' 'A') 68 63)) ;D
|
||
|
|
(let ((s "bla")) (@byte-write (if (@= s s) 69 63))) ;E
|
||
|
|
(let ((f (fun () 1))) (@byte-write (if (@= f f) 70 63))) ;F
|
||
|
|
|
||
|
|
(@byte-write (if (@= #t #f) 63 71)) ;G
|
||
|
|
(@byte-write (if (@= #t #u) 63 72)) ;H
|
||
|
|
(@byte-write (if (@= 2018 2017) 63 73)) ;I
|
||
|
|
(@byte-write (if (@= 'A' 65) 63 74)) ;J
|
||
|
|
(@byte-write (if (@= "bla" "bla") 63 75)) ;K
|
||
|
|
(@byte-write (if (@= (fun () 1) (fun () 1)) 63 76)) ;L
|