[Wisp-cvs] wisp/src/builtin cut.wisp,1.12,1.13

[<di...@us...>]

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))