From 591bda19951558d40d6ad11b49941c9ce8cd5704 Mon Sep 17 00:00:00 2001 From: Mike Vink Date: Tue, 9 May 2023 22:17:11 +0200 Subject: fixup --- shared/data-directed-programming.rkt | 3 +++ 1 file changed, 3 insertions(+) (limited to 'shared') 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))) -- cgit v1.2.3