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

15
cs420-acc/l3-compiler/tests/prim-block-get-set.l3 Normal file
View File

@@ -0,0 +1,15 @@
;; In Emacs, open this file in -*- Scheme -*- mode
;; Test the @block-get and @block-set! primitives
(@byte-write 68)
(let ((b (@block-alloc-0 4)))
(@block-set! b 0 'a')
(@block-set! b 1 'b')
(@block-set! b 2 'c')
(@block-set! b 3 'd')
(@byte-write (if (@= (@block-get b 0) 'a') 65 63))
(@byte-write (if (@= (@block-get b 1) 'b') 66 63))
(@byte-write (if (@= (@block-get b 2) 'c') 67 63))
(@byte-write (if (@= (@block-get b 3) 'd') 68 63)))