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

lib/Makefile.am accordingly
2007-12-19 17:39:26 -05:00 · 2007-12-19 17:39:26 -05:00 · a725292a4d
parent ce3a16bc6a
commit a725292a4d
6 changed files with 3 additions and 5 deletions
--- a/lib/Makefile.am
+++ b/lib/Makefile.am
@ -1,5 +1,5 @@
 libstreamsdir=$(pkglibdir)/streams
 dist_libstreams_DATA=streams/primitive.ss streams/derived.ss

-dist_pkglib_DATA=streams.ss
+dist_pkglib_DATA=streams.ss match.ss pregexp.ss

--- a/lib/Makefile.in
+++ b/lib/Makefile.in
@ -159,7 +159,7 @@ top_builddir = @top_builddir@
 top_srcdir = @top_srcdir@
 libstreamsdir = $(pkglibdir)/streams
 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

 .SUFFIXES:
--- a/other-libs/match.ss
+++ b/other-libs/match.ss
--- a/other-libs/pregexp.ss
+++ b/other-libs/pregexp.ss
--- a/other-libs/test-match.ss
+++ b/other-libs/test-match.ss
@ -13,8 +13,6 @@
       (cond
         ((assq x env) => cdr)
         (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)
       (ee b (append (map cons x* v*) env))]
      [(+ ,[x] ,[y]) (+ x y)]
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1265
+1267