From fb4aad70e956ab64584c5b158d94526444484830 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Mon, 14 Nov 2016 08:38:33 -0800
Subject: [PATCH] delete old stackers

---
 beautiful-racket/br/demo/stacker0-test.rkt |  6 ----
 beautiful-racket/br/demo/stacker0.rkt      | 38 ----------------------
 beautiful-racket/br/demo/stacker3-test.rkt |  8 -----
 beautiful-racket/br/demo/stacker3.rkt      | 23 -------------
 4 files changed, 75 deletions(-)
 delete mode 100644 beautiful-racket/br/demo/stacker0-test.rkt
 delete mode 100644 beautiful-racket/br/demo/stacker0.rkt
 delete mode 100644 beautiful-racket/br/demo/stacker3-test.rkt
 delete mode 100644 beautiful-racket/br/demo/stacker3.rkt

diff --git a/beautiful-racket/br/demo/stacker0-test.rkt b/beautiful-racket/br/demo/stacker0-test.rkt
deleted file mode 100644
index 596f3df..0000000
--- a/beautiful-racket/br/demo/stacker0-test.rkt
+++ /dev/null
@@ -1,6 +0,0 @@
-#lang reader br/demo/stacker0
-4
-8
-+
-3
-*
\ No newline at end of file
diff --git a/beautiful-racket/br/demo/stacker0.rkt b/beautiful-racket/br/demo/stacker0.rkt
deleted file mode 100644
index 227b153..0000000
--- a/beautiful-racket/br/demo/stacker0.rkt
+++ /dev/null
@@ -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"))
\ No newline at end of file
diff --git a/beautiful-racket/br/demo/stacker3-test.rkt b/beautiful-racket/br/demo/stacker3-test.rkt
deleted file mode 100644
index 9b826db..0000000
--- a/beautiful-racket/br/demo/stacker3-test.rkt
+++ /dev/null
@@ -1,8 +0,0 @@
-#lang reader br/demo/stacker3
-4
-8
-
-+
-3
-
-*
\ No newline at end of file
diff --git a/beautiful-racket/br/demo/stacker3.rkt b/beautiful-racket/br/demo/stacker3.rkt
deleted file mode 100644
index 9fbbc30..0000000
--- a/beautiful-racket/br/demo/stacker3.rkt
+++ /dev/null
@@ -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"))
\ No newline at end of file