Thanks to both of you.
It does expand to a reasonably large amount of code, a small example is
below. The processing that define-schema does shouldn't be worse than
O(N*M) where N is the number of tables and M is the number of unique
procedure names. Which is not linear, but also probably not large enough to
be the main culprit. I added `(println stx-being-returned)` to
define-schema and it gets printed relatively quickly. So probably the size
of the generated code is the main culprit. I'll try Ryan C's tips as soon
as I have time; they look promising.
(define-schema $$
(table A
#:property
[foo (%%scalar "foo-given-A" this)])
(table B
#:property
[foo (%%scalar "foo-given-B" this)]
[bar (%%scalar "bar-given-B" this)]))
; Approximately expands to
#;(begin
(define A (make-table 'A))
(define B (make-table 'B))
(define (foo x)
(cond
[((instanceof A) x)
(%%scalar "foo-given-A" x)]
[((instanceof B) x)
(%%scalar "foo-given-B" x)]
[else (error "expected instanceof A or B, got" x)]))
(define (bar x)
(cond
[((instanceof B) x)
(%%scalar "bar-given-B" x)]
[else (error "expected instanceof B, got" x)])))
--
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to racket-users+unsubscr...@googlegroups.com.
To view this discussion on the web visit
https://groups.google.com/d/msgid/racket-users/9900daba-8dd8-4e46-88ef-84fdeb53f11fo%40googlegroups.com.
