diff options
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 0f0ab3c70..433032031 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 @@ -57,10 +57,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. @@ -201,7 +201,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 @@ -331,11 +331,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? |