diff options
-rw-r--r-- | full-parse.rkt | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/full-parse.rkt b/full-parse.rkt index 832e2a6..1ddc377 100644 --- a/full-parse.rkt +++ b/full-parse.rkt @@ -2,9 +2,6 @@ (provide full-parse) -; + - * / ^ ( ) [0-9] - -; 5+3*x (define (full-parse str) (define (get-general expr operator next-operation) @@ -12,8 +9,6 @@ ; 5 is one of those in the addition iteration ; 3 and x are in the product iteration (define (add-operation-to-list operation seq) - ;(display (list operator "|" operation "|" seq)) - ;(newline) (cons (if (= (length operation) 1) (char->wanted (car operation)) (next-operation (reverse operation))) @@ -46,7 +41,7 @@ (define (create-trace expr ops) (lambda (expr) - (display expr) (newline) + ;(display expr) (newline) (get-general expr (car ops) (if (null? (cdr ops)) (lambda (x) x) |