sora/epfl-archive
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Disabled external gits

Browse Source
This commit is contained in:
choelzl
2022-04-07 18:43:21 +02:00
parent 182267a8cb
commit 88cb3426ad
1067 changed files with 102374 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
cs420-acc/l3-compiler/tests/prim-charp.l3 Normal file
View File

@@ -0,0 +1,14 @@
;; In Emacs, open this file in -*- Scheme -*- mode
;; Test the @char? primitive
(@byte-write 72)
(@byte-write (if (@char? 'A') 65 63)) ;A
(@byte-write (if (@char? '€') 66 63)) ;B
(@byte-write (if (@char? ' ') 67 63)) ;C
(@byte-write (if (@char? 1) 63 68)) ;D
(@byte-write (if (@char? "1") 63 69)) ;E
(@byte-write (if (@char? #t) 63 70)) ;F
(@byte-write (if (@char? #f) 63 71)) ;G
(@byte-write (if (@char? #u) 63 72)) ;H