Changeset 39696 in project

Timestamp:

03/13/21 22:28:24 (6 weeks ago)

Author:

Kon Lovett

Message:

fix record-printer, fix warning param

Location:

release/5/stack/trunk

Files:

• stack.egg (modified) (1 diff)
• stack.scm (modified) (2 diffs)

release/5/stack/trunk/stack.egg

@@ -3 +3 @@
 
 ((synopsis "Provides LIFO queue (stack) operations")
- (version "3.0.5")
+ (version "3.0.6")
  (category data)
  (author "Kon Lovett")

release/5/stack/trunk/stack.scm

@@ -240 +240 @@
 ;;; Read/Print Syntax
 
-(define-record-printer (stack stk out) (format out (stack-literal-format) (%stack-list stk)))
-
-(define-reader-ctor 'stack list->stack)
-
 (define stack-literal-form
-  (make-parameter 'srfi-10
+  (make-parameter 'unread
     (lambda (x)
       (case x
@@ -251 +247 @@
         ((UNREAD unread)    'unread )
         (else
-          (warning 'stack-literal-format "invalid form symbol; 'srfi-10 or 'unread" x)
-          (stack-literal-format))))))
-
-(define-constant SRFI-10-FORMAT "#,(stack ~A)")
-(define-constant UNREAD-FORMAT "#<stack ~A>")
-
-(define (stack-literal-format)
+          (warning 'stack-literal-form "invalid form symbol; 'srfi-10 or 'unread" x)
+          (stack-literal-form))))))
+
+(define (stack-print stk out)
   (case (stack-literal-form)
-    ((srfi-10)  SRFI-10-FORMAT )
-    (else       UNREAD-FORMAT ) ) )
+    ((srfi-10)  (format out "#,(stack ~A)" (%stack-list stk)) )
+    (else       (format out "#<stack ~A>" (%stack-count stk)) ) ) )
+
+(set! (record-printer stack) stack-print)
+
+(define-reader-ctor 'stack list->stack)
 
 ) ;module stack