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

Cleanup

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

28
scheme/base.sld
View file

@ -142,8 +142,20 @@
; read-bytevector! ; read-bytevector!
; write-bytevector ; write-bytevector
; ;
; binary-port? ; : No unicode support at this time
; peek-u8
; string->utf8
; read-u8
; u8-ready?
; utf8->string
; write-u8
;
; ; No complex or rational numbers at this time
; complex? ; complex?
; rational?
; rationalize
;
; binary-port?
; define-record-type ; define-record-type
; define-values ; define-values
; denominator ; denominator
@ -158,8 +170,6 @@
; let-values ; let-values
; letrec* ; letrec*
; letrec-syntax ; letrec-syntax
; list->string
; list->vector
; list-set! ; list-set!
; numerator ; numerator
; open-input-string ; open-input-string
@ -167,22 +177,12 @@
; output-port-open? ; output-port-open?
; output-port? ; output-port?
; parameterize ; parameterize
; peek-u8
; raise
; raise-continuable
; rational?
; rationalize
; read-string ; read-string
; read-u8
; record? ; record?
; string->utf8
; syntax-error ; syntax-error
; syntax-rules ; syntax-rules
; textual-port? ; textual-port?
; u8-ready?
; utf8->string
; write-string ; write-string
; write-u8
;;;; ;;;;
) )
(begin (begin
@ -913,7 +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 (define-c eof-object
"(void *data, int argc, closure _, object k)" "(void *data, int argc, closure _, object k)"
" return_closcall1(data, k, Cyc_EOF); ") " return_closcall1(data, k, Cyc_EOF); ")
)) ))