diff options
| author | Andy Wingo <wingo@pobox.com> | 2017-09-20 22:07:18 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2017-09-20 22:07:18 +0200 |
| commit | dd11b8216263aa9e79420a71e01c3cd210b19f10 (patch) | |
| tree | 19c890fa0558924242bd649bfc24f05e671c983c /module/system | |
| parent | da9da0eca402a684f4837e8085f2846148ef6ef6 (diff) | |
Use make-struct/no-tail instead of make-struct
* module/ice-9/boot-9.scm:
* module/language/cps/effects-analysis.scm:
* module/language/elisp/falias.scm:
* module/language/tree-il.scm:
* module/language/tree-il/primitives.scm:
* module/rnrs/records/procedural.scm:
* module/srfi/srfi-35.scm:
* module/system/base/syntax.scm: Change uses of make-struct to
make-struct/no-tail.
Diffstat (limited to 'module/system')
| -rw-r--r-- | module/system/base/syntax.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/base/syntax.scm b/module/system/base/syntax.scm index 1cabbbcb7..0bc16e584 100644 --- a/module/system/base/syntax.scm +++ b/module/system/base/syntax.scm @@ -80,7 +80,7 @@ (set! ,tail (cdr ,tail)) _x))))) opts) - (make-struct ,name 0 ,@slot-names)))) + (make-struct/no-tail ,name ,@slot-names)))) (define ,(symbol-append stem '?) (record-predicate ,name)) ,@(map (lambda (sname) `(define ,(symbol-append stem '- sname) |