diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-08-27 19:30:16 -0700 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-08-27 19:30:16 -0700 |
| commit | 59ca512ec8f099a7d4c8aa4392f939d1aa5aee5d (patch) | |
| tree | 870b95b19f19c035df62171fdcbaa1ae041e76ae /lib/csc/encoding.csc | |
| parent | Change argument passing to use lists. (diff) | |
| download | chromatopelma-59ca512ec8f099a7d4c8aa4392f939d1aa5aee5d.tar.zst | |
Implement multiple return values.
Diffstat (limited to 'lib/csc/encoding.csc')
| -rw-r--r-- | lib/csc/encoding.csc | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/csc/encoding.csc b/lib/csc/encoding.csc index 099beaf..11c0f5f 100644 --- a/lib/csc/encoding.csc +++ b/lib/csc/encoding.csc @@ -195,6 +195,10 @@ (make-opcode w 19 (is-const? l) #f) (arg->le-bytes w dest) (arg->le-bytes w l)) + (('assert-singleton dest l) + (make-opcode w 20 (is-const? l) #f) + (arg->le-bytes w dest) + (arg->le-bytes w l)) (_ (error "invalid opcode" opcode)))) |