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

Init

Browse Source
This commit is contained in:
choelzl
2022-04-07 18:33:05 +02:00
commit 091ba18f50
177 changed files with 4870 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
cs420-acc/l3-warmup/tests/prim-boolp.l3 Normal file
View File

@@ -0,0 +1,11 @@
;; In Emacs, open this file in -*- Scheme -*- mode
;; Test the @bool? primitive
(@byte-write 69)
(@byte-write (if (@bool? #t) 65 63)) ;A
(@byte-write (if (@bool? #f) 66 63)) ;B
(@byte-write (if (@bool? 1) 63 67)) ;C
(@byte-write (if (@bool? "1") 63 68)) ;D
(@byte-write (if (@bool? #u) 63 69)) ;E