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/srfi/srfi-35.scm | |
parent | da9da0eca402a684f4837e8085f2846148ef6ef6 (diff) | |
download | guile-dd11b8216263aa9e79420a71e01c3cd210b19f10.tar.gz |
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/srfi/srfi-35.scm')
-rw-r--r-- | module/srfi/srfi-35.scm | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/module/srfi/srfi-35.scm b/module/srfi/srfi-35.scm index 8f86bce57..224c6af7e 100644 --- a/module/srfi/srfi-35.scm +++ b/module/srfi/srfi-35.scm @@ -1,6 +1,6 @@ ;;; srfi-35.scm --- Conditions -*- coding: utf-8 -*- -;; Copyright (C) 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc. +;; Copyright (C) 2007-2011, 2017 Free Software Foundation, Inc. ;; ;; This library is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public @@ -58,10 +58,10 @@ s)) (define (%make-condition-type layout id parent all-fields) - (let ((struct (make-struct %condition-type-vtable 0 - (make-struct-layout layout) ;; layout - print-condition ;; printer - id parent all-fields))) + (let ((struct (make-struct/no-tail %condition-type-vtable + (make-struct-layout layout) ;; layout + print-condition ;; printer + id parent all-fields))) ;; Hack to associate STRUCT with a name, providing a better name for ;; GOOPS classes as returned by `class-of' et al. @@ -202,7 +202,7 @@ supertypes." "Wrong type argument: ~S" c))) (define (make-condition-from-values type values) - (apply make-struct type 0 values)) + (apply make-struct/no-tail type values)) (define (make-condition type . field+value) "Return a new condition of type TYPE with fields initialized as specified @@ -332,11 +332,11 @@ by C." (define &condition ;; The root condition type. - (make-struct %condition-type-vtable 0 - (make-struct-layout "") - (lambda (c port) - (display "<&condition>")) - '&condition #f '() '())) + (make-struct/no-tail %condition-type-vtable + (make-struct-layout "") + (lambda (c port) + (display "<&condition>")) + '&condition #f '() '())) (define-condition-type &message &condition message-condition? |