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

printer fix for paths

Browse Source
This commit is contained in:
Andrew Kent 2014-12-22 12:34:48 -05:00
parent 29e4be449b
commit 683ebb1023
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
typed-racket-lib/typed-racket/types/printer.rkt
View File

@ -130,8 +130,9 @@
[(CarPE:) 'car]
[(CdrPE:) 'cdr]
[(ForcePE:) 'force]
[(StructPE: t i) `(,(pathelem->sexp t) ,i)]
[else `(Unknown Path Element: ,(struct->vector pathelem))]))
[(StructPE: t i) `(,(type->sexp t)-,i)]
[(SyntaxPE:) 'syntax]
[else `(Invalid Path-Element: ,(struct->vector pathelem))]))
;; object->sexp : Object -> S-expression
;; Print an Object (see object-rep.rkt) to the given port