From 33e45c3db046da01d85f3d7c1e989a78578d15fa Mon Sep 17 00:00:00 2001 From: Hugo Date: Wed, 27 Apr 2016 16:35:51 +0200 Subject: minor cleanup --- full-parse.rkt | 7 +------ 1 file changed, 1 insertion(+), 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) -- cgit v1.2.3