Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 16:57:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Compile apply to apply_va

Browse source
This commit is contained in:
Justin Ethier 2016-07-01 01:08:02 -04:00
parent c9d93dd0b2
commit 8a89678f6c
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
scheme/cyclone/primitives.sld
View file

@ -241,7 +241,7 @@
((eq? p '<) "Cyc_num_lt") ((eq? p '<) "Cyc_num_lt")
((eq? p '>=) "Cyc_num_gte") ((eq? p '>=) "Cyc_num_gte")
((eq? p '<=) "Cyc_num_lte") ((eq? p '<=) "Cyc_num_lte")
((eq? p 'apply) "apply") ((eq? p 'apply) "apply_va")
((eq? p '%halt) "__halt") ((eq? p '%halt) "__halt")
((eq? p 'exit) "__halt") ((eq? p 'exit) "__halt")
((eq? p 'Cyc-default-exception-handler) "Cyc_default_exception_handler") ((eq? p 'Cyc-default-exception-handler) "Cyc_default_exception_handler")
@ -519,6 +519,7 @@
(and (prim? exp) (and (prim? exp)
(member exp '(error Cyc-write Cyc-display (member exp '(error Cyc-write Cyc-display
number->string string->number string-append number->string string->number string-append
apply
make-bytevector make-bytevector
bytevector bytevector
bytevector-append bytevector-append