aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--scheme/idest/format/pic.scm18
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))

Return to:

Send suggestions and report system problems to the System administrator.