scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

let byte-vectors print as a list of numbers

This commit is contained in:
mainzelm 2000-09-01 07:13:05 +00:00
parent 0c7809d0bc
commit c231ab7c6b
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
scheme/env/disclosers.scm vendored
View File

@ -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))