scsh-conservatory
/
scsh-0.5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Random updates.

This commit is contained in:
shivers 1999-09-15 14:54:49 +00:00
parent e13e0c7648
commit cd47ff6c12
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Makefile.in
View File

@ -657,7 +657,10 @@ loads = $(srcdir)/scsh/let-opt.scm $(srcdir)/scsh/scsh-interfaces.scm \
$(srcdir)/scsh/rx/packages.scm \ $(srcdir)/scsh/rx/packages.scm \
$(srcdir)/scsh/rx/cond-package.scm \ $(srcdir)/scsh/rx/cond-package.scm \
$(srcdir)/scsh/scsh-package.scm \ $(srcdir)/scsh/scsh-package.scm \
$(srcdir)/scsh/stringpack.scm $(srcdir)/scsh/lib/string-pack.scm \
$(srcdir)/scsh/lib/list-pack.scm \
$(srcdir)/scsh/lib/ccp-pack.scm
scsh/scsh.image: $(VM) $(SCHEME) $(CIG).image scsh/scsh.image: $(VM) $(SCHEME) $(CIG).image
(echo ",translate =scheme48/ $(srcdir)/"; \ (echo ",translate =scheme48/ $(srcdir)/"; \
@ -670,6 +673,8 @@ scsh/scsh.image: $(VM) $(SCHEME) $(CIG).image
echo ",load-package scsh"; \ echo ",load-package scsh"; \
echo ",load-package scsh-here-string-hax"; \ echo ",load-package scsh-here-string-hax"; \
echo ",translate =scheme48/ $(LIB)/"; \ echo ",translate =scheme48/ $(LIB)/"; \
echo ",load-package list-lib"; \
echo ",load-package string-lib"; \
echo ",load-package ccp-lib"; \ echo ",load-package ccp-lib"; \
echo ",in scsh-level-0"; \ echo ",in scsh-level-0"; \
echo "(%install-scsh-handlers)"; \ echo "(%install-scsh-handlers)"; \
@ -677,8 +682,7 @@ scsh/scsh.image: $(VM) $(SCHEME) $(CIG).image
echo ",user"; \ echo ",user"; \
echo ",open floatnums"; \ echo ",open floatnums"; \
echo ",open scsh"; \ echo ",open scsh"; \
echo ",open string-lib"; \ echo ",open list-lib string-lib ccp-lib"; \
echo ",open ccp-lib"; \
echo "(dump-scsh \"scsh/scsh.image\")") \ echo "(dump-scsh \"scsh/scsh.image\")") \
| ./$(VM) -o ./$(VM) -h 10000000 -i $(CIG).image | ./$(VM) -o ./$(VM) -h 10000000 -i $(CIG).image

4
scsh/scsh-interfaces.scm
View File

@ -436,7 +436,9 @@
(define-interface scsh-string-interface (define-interface scsh-string-interface
(export substitute-env-vars string-index string-index-right)) (export substitute-env-vars
;string-index string-index-right ; Now in string-lib
))
(define-interface scsh-file-names-interface (define-interface scsh-file-names-interface
(export file-name-as-directory (export file-name-as-directory