diff options
author | Andy Wingo <wingo@pobox.com> | 2017-09-20 21:55:21 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2017-09-20 21:55:21 +0200 |
commit | da9da0eca402a684f4837e8085f2846148ef6ef6 (patch) | |
tree | f45b12c820484ef94cc969f0d684d2c879687d39 /module/ice-9/psyntax.scm | |
parent | ac0d3dcc533850d25f3e533c04c1c238a83f190b (diff) | |
download | guile-da9da0eca402a684f4837e8085f2846148ef6ef6.tar.gz |
psyntax generates calls to make-struct/no-tail
* module/ice-9/psyntax.scm (define-expansion-constructors): Expand to
make-struct/no-tail.
* module/ice-9/psyntax-pp.scm: Regenerate.
Diffstat (limited to 'module/ice-9/psyntax.scm')
-rw-r--r-- | module/ice-9/psyntax.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 5696c4642..ffe37cffc 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -184,8 +184,9 @@ (sfields (map (lambda (f) (datum->syntax x f)) fields)) (ctor (datum->syntax x (symbol-append 'make- stem)))) (cons #`(define (#,ctor #,@sfields) - (make-struct (vector-ref %expanded-vtables #,n) 0 - #,@sfields)) + (make-struct/no-tail + (vector-ref %expanded-vtables #,n) + #,@sfields)) out))) #`(begin #,@(reverse out)))))))) |