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

Limited disclosing of byte-vectors to the first 16 elements.

This commit is contained in:
mainzelm 2003-04-14 11:06:55 +00:00
parent 958d62febe
commit bd70ccb03d
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
scheme/env/disclosers.scm vendored
View File

@ -48,12 +48,14 @@
(define-method &disclose ((obj :code-vector)) (define-method &disclose ((obj :code-vector))
; (list 'byte-vector (code-vector-length obj)) ; (list 'byte-vector (code-vector-length obj))
(cons 'byte-vector (let ((z (code-vector-length obj)))
(let ((z (code-vector-length obj))) (cons 'byte-vector
(do ((i (- z 1) (- i 1)) (cons (list 'length z)
(l '() (cons (code-vector-ref obj i) l))) (do ((i (min (- z 1) 15) (- i 1))
((< i 0) l)))) (l '() (cons (code-vector-ref obj i) l)))
) ((< i 0) (if (> z 16)
(append l (list '...))
l)))))))
(define-method &disclose ((obj :channel)) (define-method &disclose ((obj :channel))
(let ((status (channel-status obj))) (let ((status (channel-status obj)))