Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv4543/src/builtin
Modified Files:
cut.wisp
Log Message:
Dropped the strings-as-stacks module and |cut-place| special form.
Index: cut.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/cut.wisp,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- cut.wisp 27 Aug 2002 14:24:48 -0000 1.12
+++ cut.wisp 31 Aug 2002 14:28:42 -0000 1.13
@@ -6,7 +6,7 @@
;;
;;;; @(#) $Id$
-(define (expand-cut place? orig-args)
+(defmacro (cut . orig-args)
(my items (list-copy orig-args)
(if (or (null? items) (eq? (car items) '<...>))
(raise 'invalid-cut (cons 'cut orig-args)))
@@ -34,11 +34,6 @@
(else
(set! (car l) `(hide* ,used-vars ,(car l)))))
(cdr! l)))
- (if place?
- (begin
- (cons! rformals (list ':= 'new-value))
- (cons! (cdr used-vars) 'new-value)
- (cons! (cdr used-vars) ':=?)))
(my body (if *?
(cons 'apply
(let (loop (items items))
@@ -53,14 +48,7 @@
items)
`(lambda ,(reverse rformals)
(my dummy-var #f
- ,(if place?
- `(if :=?
- (set! ,body new-value)
- ,body)
- body)))))))
-
-(defmacro (cut . items)
- (expand-cut #f items))
+ ,body))))))
(defmacro (cute . items)
(my var-counter (make-counter)
@@ -74,8 +62,3 @@
(cons! args var))))
items)
`(let ,(reverse vars) (cut ,@(reverse args)))))))
-
-; FIXME: |cut-place| is deprecated and will be dropped after the
-; strings-as-stacks module is dropped.
-(defmacro (cut-place . items)
- (expand-cut #t items))
|
