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

bring back structure type w/o re-enabling broken signatures

Browse Source
This commit is contained in:
Matthias Felleisen 2014-08-01 22:58:03 -04:00
parent 6782f7a85f
commit e4c6d76269
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
pkgs/htdp-pkgs/htdp-lib/lang/private/teach.rkt
View File

@ -1004,14 +1004,7 @@
(define struct-name-size (string-length (symbol->string (syntax-e #'name_))))
(define struct-name/locally-introduced (syntax-local-introduce #'name_))
(define signature-name-directive
(vector (syntax-local-introduce constructor-name)
5
struct-name-size
struct-name/locally-introduced
0
struct-name-size))
(define signature-name-directive #f)
(define parametric-signature-name-directive #f)
(define struct-name-to-maker-directive
@ -1105,7 +1098,15 @@
EXPECTED-FUNCTION-NAME
stx
#'self)]
[_ #'#,signature-name])))
[else
(raise-syntax-error
#f
(format "structure type; do you mean make-~a"
(syntax-e #'name_))
stx
stx)
#;#'#,signature-name
])))
;; support `shared'
(make-info (lambda () compile-info))))
'stepper-skip-completely
@ -1115,7 +1116,7 @@
(check-definitions-new 'define-struct
stx
(list* name parametric-signature-name to-define-names)
defn1
defn2
(and setters? bind-names)))
(define defn4
(syntax-property defn3 'disappeared-use (list struct-name/locally-introduced)))