delete old stackers

beautiful-racket/br/demo/stacker0-test.rkt

@@ -1,6 +0,0 @@
-#lang reader br/demo/stacker0
-4
-8
-+
-3
-*

beautiful-racket/br/demo/stacker0.rkt

@@ -1,38 +0,0 @@
-#lang br/quicklang
-
-(define (read-syntax src-path in-port)
-  (define args (port->lines in-port))
-  (define module-datum `(module stacker-mod br/demo/stacker0
-                          ,@args))
-  (datum->syntax #f module-datum))
-(provide read-syntax)
-
-(define-macro (stacker-module-begin ARG ...)
-  #'(#%module-begin
-     (push ARG) ...
-     (display (first stack))))
-(provide (rename-out [stacker-module-begin #%module-begin]))
-
-(define stack empty)
-
-(define (pop-stack!)
-  (define item (first stack))
-  (set! stack (rest stack))
-  item)
-
-(define (push-stack! item) (set! stack (cons item stack)))
-
-(define (push arg)
-  (cond
-    [(equal? arg "+")
-     (define sum (+ (pop-stack!) (pop-stack!)))
-     (push-stack! sum)]
-    [(equal? arg "*")
-     (define product (* (pop-stack!) (pop-stack!)))
-     (push-stack! product)]
-    [(string->number arg) (push-stack! (string->number arg))]))
-
-
-(module+ test 
-  (require rackunit)
-  (check-equal? (with-output-to-string (λ () (dynamic-require "stacker0-test.rkt" #f))) "36"))

beautiful-racket/br/demo/stacker3-test.rkt

@@ -1,8 +0,0 @@
-#lang reader br/demo/stacker3
-4
-8
-
-+
-3
-
-*

beautiful-racket/br/demo/stacker3.rkt

@@ -1,23 +0,0 @@
-#lang br/quicklang
-(provide read-syntax
-         (rename-out [stacker-module-begin #%module-begin])
-         + *)
-
-(define (read-syntax path port)
-  (datum->syntax #f
-                 `(module stacker3-mod br/demo/stacker3
-                      ,@(port->list read port))))
-
-(define-macro (stacker-module-begin ARG ...)
-  #'(#%module-begin
-     (display (first
-               (foldl
-                (λ (x xs)
-                  (if (number? x)
-                      (cons x xs)
-                      (cons (x (car xs) (cadr xs)) (cddr xs))))
-                null (list ARG ...))))))
-
-(module+ test 
-  (require rackunit)
-  (check-equal? (with-output-to-string (λ () (dynamic-require "stacker3-test.rkt" #f))) "36"))