summaryrefslogtreecommitdiffabout
authorSergey Poznyakoff <gray@gnu.org>2015-11-05 22:15:41 (GMT)
committer Sergey Poznyakoff <gray@gnu.org>2015-11-05 22:15:41 (GMT)
commit19aa76addd806881d9e881a61f094ce125ba5fcc (patch) (side-by-side diff)
tree8bef81c9d4d3dfe67d702d11838cf2c7901647c3
parent6f8dc538dab2a9284802b63e80fd4f03bb0dff34 (diff)
downloadidest-19aa76addd806881d9e881a61f094ce125ba5fcc.tar.gz
idest-19aa76addd806881d9e881a61f094ce125ba5fcc.tar.bz2
Minor fix
* scheme/idest/format/pic.scm: Remove unneeded function.
Diffstat (more/less context) (ignore whitespace changes)
-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.