suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

quick fix for PR8593

Browse Source 
svn: r5853
This commit is contained in:
Eli Barzilay 2007-04-01 03:23:13 +00:00
parent ae9df5db7a
commit 70ac8f968f
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/swindle/tiny-clos.ss
View File

@ -2111,6 +2111,9 @@
;; matter?
;; ELI: changed the order so it fits better the expected results.
(cond [(instance? x) (instance-class x)]
[(struct? x)
(let-values ([(type _) (struct-info x)])
(if type (struct-type->class type) <opaque-struct>))]
[(procedure? x) (cond [(parameter? x) <parameter>]
[(primitive? x) <primitive-procedure>]
[else <procedure>])]
@ -2145,10 +2148,6 @@
(if (file-stream-port? x) <input-stream-port> <input-port>)]
[(output-port? x)
(if (file-stream-port? x) <output-stream-port> <output-port>)]
;; MzScheme stuff
[(struct? x)
(let-values ([(type _) (struct-info x)])
(if type (struct-type->class type) <opaque-struct>))]
[(void? x) <void>]
[(box? x) <box>]
[(weak-box? x) <weak-box>]