conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

moved match.ss and pregexp.ss to the lib directory and modified 

lib/Makefile.am accordingly
This commit is contained in:
Abdulaziz Ghuloum 2007-12-19 17:39:26 -05:00
parent ce3a16bc6a
commit a725292a4d
6 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Makefile.am
View File

@ -1,5 +1,5 @@
libstreamsdir=$(pkglibdir)/streams libstreamsdir=$(pkglibdir)/streams
dist_libstreams_DATA=streams/primitive.ss streams/derived.ss dist_libstreams_DATA=streams/primitive.ss streams/derived.ss
dist_pkglib_DATA=streams.ss dist_pkglib_DATA=streams.ss match.ss pregexp.ss

2
lib/Makefile.in
View File

@ -159,7 +159,7 @@ top_builddir = @top_builddir@
top_srcdir = @top_srcdir@ top_srcdir = @top_srcdir@
libstreamsdir = $(pkglibdir)/streams libstreamsdir = $(pkglibdir)/streams
dist_libstreams_DATA = streams/primitive.ss streams/derived.ss dist_libstreams_DATA = streams/primitive.ss streams/derived.ss
dist_pkglib_DATA = streams.ss dist_pkglib_DATA = streams.ss match.ss pregexp.ss
all: all-am all: all-am
.SUFFIXES: .SUFFIXES:

0
other-libs/match.ss → lib/match.ss
View File

0
other-libs/pregexp.ss → lib/pregexp.ss
View File

2
other-libs/test-match.ss
View File

@ -13,8 +13,6 @@
(cond (cond
((assq x env) => cdr) ((assq x env) => cdr)
(else (error 'ee "unbound variable" x)))] (else (error 'ee "unbound variable" x)))]
;[(let ([,x* ,v*] ...) ,b)
; (ee b (append (map cons x* (map (lambda (x) (ee x env)) v*)) env))]
[(let ([,x* ,[v*]] ...) ,b) [(let ([,x* ,[v*]] ...) ,b)
(ee b (append (map cons x* v*) env))] (ee b (append (map cons x* v*) env))]
[(+ ,[x] ,[y]) (+ x y)] [(+ ,[x] ,[y]) (+ x y)]

2
scheme/last-revision
View File

@ -1 +1 @@
1265 1267