diff options
-rw-r--r-- | scheme/idest/format/pic.scm | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/scheme/idest/format/pic.scm b/scheme/idest/format/pic.scm index 5e831fb..8d4a9bd 100644 --- a/scheme/idest/format/pic.scm +++ b/scheme/idest/format/pic.scm @@ -89,24 +89,6 @@ bytelist)))))) (close-port port))) -(define (save-picture-0 name data) - (with-output-to-file - name - (lambda () - (for-each - (lambda (c) (put-u8 (current-output-port) c)) - (let string->bytelist ((str data) - (bytelist '())) - (cond - ((string-null? str) - (reverse bytelist)) - (else - (string->bytelist - (substring str 2) - (cons - (string->number (substring str 0 2) 16) - bytelist))))))))) - (define-public (idest-init) (let* ((cmd (command-line)) (progname (car cmd)) |