Mountebank notes.

Author: dvanhorn

langs/mountebank/compile-datum.rkt

@@ -7,6 +7,14 @@
 ;; Registers used
 (define rax 'rax) ; return
 
+;; Datum -> Asm
+(define (compile-datum d)
+  (cond
+    [(string? d)   (seq (Lea rax (load-string d)))]
+    [(symbol? d)   (seq (Lea rax (load-symbol d)))]
+    [(compound? d) (compile-compound-datum d)]
+    [else          (compile-atom d)]))
+
 (define (load-symbol s)
   (Plus (symbol->data-label s) type-symb))
 
@@ -23,14 +31,6 @@
       (cons? d)
       (vector? d)))
 
-;; Datum -> Asm
-(define (compile-datum d)
-  (cond
-    [(string? d)   (seq (Lea rax (load-string d)))]
-    [(symbol? d)   (seq (Lea rax (load-symbol d)))]
-    [(compound? d) (compile-compound-datum d)]
-    [else          (compile-atom d)]))
-
 ;; Datum -> Asm
 (define (compile-compound-datum d)
   (match (compile-quoted d)

langs/mountebank/parse.rkt

@@ -24,8 +24,8 @@
 ;; S-Expr -> Expr
 (define (parse-e s)
   (match s
-    [(? self-quoting?)             (Quote (parse-datum s))]
-    [(list 'quote d)               (Quote (parse-datum d))]
+    [(? self-quoting?)             (Quote s)]
+    [(list 'quote d)               (Quote d)]
     ['eof                          (Eof)]
     [(? symbol?)                   (Var s)]
     [(list (? (op? op0) p0))       (Prim0 p0)]
@@ -84,23 +84,6 @@
      (PCons (parse-pat p1)
             (parse-pat (cons 'list ps)))]))
 
-;; Datum -> Datum
-(define (parse-datum d)
-  (match d
-    [(box d)
-     (box (parse-datum d))]    
-    [(cons d1 d2)
-     (cons (parse-datum d1) (parse-datum d2))]
-    ['() '()]
-    [(? symbol? s) s]
-    [(? integer? i) i]
-    [(? boolean? b) b]
-    [(? string? s) s]
-    [(? char? c) c]
-    [(? vector? v)
-     (apply vector (map parse-datum (vector->list v)))]
-    [_ (error "parse datum error")]))
-
 (define (self-quoting? x)
   (or (integer? x)
       (boolean? x)

www/notes.scrbl

@@ -31,4 +31,5 @@ suggestions for improving the material, @bold{please},
 @include-section{notes/knock.scrbl}
 @include-section{notes/loot.scrbl}
 @include-section{notes/mug.scrbl}
+@include-section{notes/mountebank.scrbl}
 @;include-section{notes/shakedown.scrbl}