diff options
Diffstat (limited to 'shared/data-directed-programming.rkt')
| -rw-r--r-- | shared/data-directed-programming.rkt | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/shared/data-directed-programming.rkt b/shared/data-directed-programming.rkt index 3e555ee..84714a3 100644 --- a/shared/data-directed-programming.rkt +++ b/shared/data-directed-programming.rkt @@ -27,6 +27,7 @@ ((symbol? datum) 'symbol) ((exact-integer? datum) 'integer) ((inexact-real? datum) 'real) + ((rational? datum) 'real) ((number? datum) 'scheme-number) ((boolean? datum) 'boolean) (else (error "Bad tagged datum -- TYPE-TAG" datum)))) @@ -53,6 +54,7 @@ (newline) (println dispatch-table)) (define (get op types) + ; (display (list "GET -- " op types)) (let ((op-datum (find-type op dispatch-table))) (if op-datum (let ((proc-datum (find-type types (contents op-datum)))) @@ -247,6 +249,7 @@ datum)) (lambda (op . args) + ; (display (list "APPLY -- " op args)) (let ((proc (get op (map type-tag args)))) (if proc (towerdrop (apply proc (map contents args))) |