diff options
| author | Mike Vink <mike1994vink@gmail.com> | 2023-05-10 22:22:48 +0200 |
|---|---|---|
| committer | Mike Vink <mike1994vink@gmail.com> | 2023-05-10 22:22:48 +0200 |
| commit | 2c8bbf5955c687b8e1528e8c637d3ae18960797f (patch) | |
| tree | 4fd5e8e845773d8a611a9fb187d606899db03bff /shared/data-directed-programming.rkt | |
| parent | 78f438c53b0aaf147268a77dfd53f5b056939f39 (diff) | |
last excercise
Diffstat (limited to 'shared/data-directed-programming.rkt')
| -rw-r--r-- | shared/data-directed-programming.rkt | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/shared/data-directed-programming.rkt b/shared/data-directed-programming.rkt index 84714a3..520f1bd 100644 --- a/shared/data-directed-programming.rkt +++ b/shared/data-directed-programming.rkt @@ -28,7 +28,7 @@ ((exact-integer? datum) 'integer) ((inexact-real? datum) 'real) ((rational? datum) 'real) - ((number? datum) 'scheme-number) + ((number? datum) 'real) ((boolean? datum) 'boolean) (else (error "Bad tagged datum -- TYPE-TAG" datum)))) (define (contents datum) @@ -257,4 +257,4 @@ (let ((raised-proc (get op (map type-tag raised-args)))) (if raised-proc (towerdrop (apply raised-proc (map contents raised-args))) - (error "Could not apply --" (list op raised-args))))))))) + (error "Could not apply --" (list op raised-args (map type-tag raised-args)))))))))) |