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

Modified repl's load to pull defs into *icyc-env*

Browse source
This commit is contained in:
Justin Ethier 2016-06-23 21:51:06 -04:00
parent a21ecebea7
commit 0db31ea6d9
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
icyc.scm
View file

@ -8,6 +8,7 @@
;;;; ;;;;
(import (scheme cyclone common) (import (scheme cyclone common)
(scheme cyclone libraries) (scheme cyclone libraries)
(scheme cyclone util)
(scheme base) (scheme base)
(scheme char) (scheme char)
(scheme lazy) (scheme lazy)
@ -58,6 +59,11 @@
(display "\n") (display "\n")
(exit 0))))) (exit 0)))))
;; Use a special version of load to pull defs into the repl's env
(define (load2 f)
(load f *icyc-env*))
(env:define-variable! 'load load2 *icyc-env*)
(let ((args (command-line-arguments))) (let ((args (command-line-arguments)))
(if (= (length args) 1) (if (= (length args) 1)
(load (car args) *icyc-env*)) (load (car args) *icyc-env*))