Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added eof-object

Browse source
This commit is contained in:
Justin Ethier 2016-01-29 23:34:57 -05:00
parent 43e0cfdd4c
commit 7d0982992c
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/base.sld
View file

@ -120,6 +120,7 @@
round round
exact exact
inexact inexact
eof-object
;;;; ;;;;
; Possibly missing functions: ; Possibly missing functions:
@ -146,7 +147,6 @@
; define-record-type ; define-record-type
; define-values ; define-values
; denominator ; denominator
; eof-object
; get-output-string ; get-output-string
; guard ; guard
; import ; import
@ -913,4 +913,7 @@
Cyc_check_num(data, z2); Cyc_check_num(data, z2);
d.value = pow( unbox_number(z1), unbox_number(z2) ); d.value = pow( unbox_number(z1), unbox_number(z2) );
return_closcall1(data, k, &d); ") return_closcall1(data, k, &d); ")
(define eof-object
"(void *data, int argc, closure _, object k)"
" return_closcall1(data, k, Cyc_EOF); ")
)) ))