update algebra demo

beautiful-racket-demo/algebra-demo/grammar.rkt

@@ -1,9 +1,6 @@
 #lang brag
 
-top : (func-def | func-app)*
+top : (fun | app)*
-func-def : /"fun" var /"(" vars /")" /"=" expr
+fun : /"fun" ID /"(" ID [/"," ID] /")" /"=" expr
-/vars : var [/"," var]
+expr : ID "+" ID | app
-expr : var "+" var | value
+app : ID /"(" (ID | INT) [/"," ID] /")"
-@value : var | INT | func-app
-func-app : var /"(" value [/"," value] /")"
-@var : ID

beautiful-racket-demo/algebra-demo/main.rkt

@@ -1,6 +1,6 @@
 #lang br/quicklang
 (require brag/support "grammar.rkt")
-(provide (all-defined-out) #%module-begin)
+(provide top fun expr app)
 
 (module+ reader
   (provide read-syntax))
@@ -8,27 +8,29 @@
 (define-lex-abbrev reserved-toks
   (:or "fun" "(" ")" "=" "+" ","))
 
-(define tokenize
+(define tokenize-1
   (lexer
-   [whitespace (tokenize input-port)]
+   [whitespace (token lexeme #:skip? #t)]
+   [(from/stop-before "%" "\n") (token 'COMMENT #:skip? #t)]
    [reserved-toks lexeme]
-   [alphabetic (token 'ID (string->symbol lexeme))]
+   [(:+ alphabetic) (token 'ID (string->symbol lexeme))]
    [(:+ (char-set "0123456789")) (token 'INT (string->number lexeme))]))
 
-(define-macro top #'begin)
+(define-macro top #'#%module-begin)
 
-(define-macro (func-def VAR VARS EXPR)
+(define-macro-cases fun
-  #'(define (VAR . VARS) EXPR))
+  [(_ VAR ARG0 EXPR) #'(define (VAR ARG0) EXPR)]
+  [(_ VAR ARG0 ARG1 EXPR) #'(define (VAR ARG0 ARG1) EXPR)])
 
 (define-macro-cases expr
   [(_ LEFT "+" RIGHT) #'(+ LEFT RIGHT)]
   [(_ OTHER) #'OTHER])
 
-(define-macro func-app #'#%app)
+(define-macro app #'#%app)
 
 (define (read-syntax src ip)
-  (define parse-tree (parse (λ () (tokenize ip))))
+  (define parse-tree (parse src (λ () (tokenize-1 ip))))
-  (strip-context
+  (strip-bindings
    (with-syntax ([PT parse-tree])
-     #'(module mod-name algebra-demo
+     #'(module algebra-mod algebra-demo
          PT))))

beautiful-racket-demo/algebra-demo/test.rkt

@@ -1,4 +1,6 @@
 #lang algebra-demo
-fun f(x,y) = x + y 
+fun f(x,y) = x + y
-fun g(z) = f(z,z)
+% fun f(x,y) = x * y
-g(10)
+fun g(zz) = f(zz,zz)
+g(10)
+g(23)