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

Added eval library

Browse source
This commit is contained in:
Justin Ethier 2015-05-20 21:54:17 -04:00
parent 03e37a4ead
commit 4e953b64c3
3 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Makefile
View file

@ -1,11 +1,14 @@
TESTSCM = unit-tests TESTSCM = unit-tests
TESTFILES = $(addprefix tests/, $(addsuffix .scm, $(TESTSCM))) TESTFILES = $(addprefix tests/, $(addsuffix .scm, $(TESTSCM)))
all: cyclone scheme/base.o scheme/read.o icyc all: cyclone scheme/base.o scheme/read.o scheme/eval.o icyc
scheme/base.o: cyclone scheme/base.sld scheme/base.o: cyclone scheme/base.sld
./cyclone scheme/base.sld ./cyclone scheme/base.sld
scheme/eval.o: cyclone scheme/eval.sld
./cyclone scheme/eval.sld
scheme/read.o: cyclone scheme/read.sld scheme/read.o: cyclone scheme/read.sld
./cyclone scheme/read.sld ./cyclone scheme/read.sld

6
cyclone.scm
View file

@ -240,9 +240,9 @@
(not (null? result))) (not (null? result)))
(let ((program (let ((program
(append (append
(if (member 'eval result) ;(if (member 'eval result)
(read-file (get-lib "eval.scm")) ; (read-file (get-lib "eval.scm"))
'()) ; '())
;(if (member 'read result) ;(if (member 'read result)
; (append ; (append
; (read-file (get-lib "parser.scm")) ; (read-file (get-lib "parser.scm"))

3
icyc.scm
View file

@ -4,6 +4,9 @@
;; ;;
;; This module contains a simple Read-Eval-Print Loop ;; This module contains a simple Read-Eval-Print Loop
;; ;;
(import (scheme base)
(scheme read)
(scheme eval))
(cond-expand (cond-expand
(cyclone (cyclone
(display *Cyc-version-banner*)) (display *Cyc-version-banner*))