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

10
scheme/env/disclosers.scm vendored
View File

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