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

Added (scheme file) library

Browse source
This commit is contained in:
Justin Ethier 2015-06-22 22:46:36 -04:00
parent aefb75c807
commit 634dad667b
3 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Makefile
View file

@ -1,7 +1,7 @@
TESTSCM = unit-tests
TESTFILES = $(addprefix tests/, $(addsuffix .scm, $(TESTSCM)))
all: cyclone scheme/base.o scheme/read.o scheme/write.o scheme/char.o scheme/eval.o icyc
all: cyclone scheme/base.o scheme/read.o scheme/write.o scheme/char.o scheme/eval.o scheme/file.o icyc
scheme/base.o: cyclone scheme/base.sld
./cyclone scheme/base.sld
@ -12,6 +12,9 @@ scheme/char.o: cyclone scheme/char.sld
scheme/eval.o: cyclone scheme/eval.sld
./cyclone scheme/eval.sld
scheme/file.o: cyclone scheme/file.sld
./cyclone scheme/file.sld
scheme/read.o: cyclone scheme/read.sld
./cyclone scheme/read.sld

6
scheme/base.sld
View file

@ -56,8 +56,6 @@
current-input-port
current-error-port
call-with-port
call-with-input-file
call-with-output-file
error
raise
raise-continuable
@ -91,10 +89,6 @@
(let ((result (proc port)))
(close-port port)
result))
(define (call-with-input-file string proc)
(call-with-port (open-input-file string) proc))
(define (call-with-output-file string proc)
(call-with-port (open-output-file string) proc))
(define (Cyc-bin-op cmp x lst)
(cond
((null? lst) #t)

1
scheme/eval.sld
View file

@ -1,6 +1,7 @@
(define-library (scheme eval)
(import
(scheme base)
(scheme file)
(scheme write)
(scheme read))
(export