From c231ab7c6b456ca4e1b166a0008b2664c6b97fb1 Mon Sep 17 00:00:00 2001 From: mainzelm Date: Fri, 1 Sep 2000 07:13:05 +0000 Subject: [PATCH] let byte-vectors print as a list of numbers --- scheme/env/disclosers.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/scheme/env/disclosers.scm b/scheme/env/disclosers.scm index 11fcceb..3054d70 100644 --- a/scheme/env/disclosers.scm +++ b/scheme/env/disclosers.scm @@ -47,12 +47,12 @@ (or (template-print-name tem) (template-id tem))))) (define-method &disclose ((obj :code-vector)) - (list 'byte-vector (code-vector-length obj)) -; (cons 'code-vector -; (let ((z (code-vector-length obj))) -; (do ((i (- z 1) (- i 1)) -; (l '() (cons (code-vector-ref obj i) l))) -; ((< i 0) l)))) +; (list 'byte-vector (code-vector-length obj)) + (cons 'byte-vector + (let ((z (code-vector-length obj))) + (do ((i (- z 1) (- i 1)) + (l '() (cons (code-vector-ref obj i) l))) + ((< i 0) l)))) ) (define-method &disclose ((obj :channel))