diff options
| author | Sergey Poznyakoff <gray@gnu.org> | 2015-11-06 00:15:41 +0200 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org> | 2015-11-06 00:15:41 +0200 |
| commit | 19aa76addd806881d9e881a61f094ce125ba5fcc (patch) | |
| tree | 8bef81c9d4d3dfe67d702d11838cf2c7901647c3 | |
| parent | 6f8dc538dab2a9284802b63e80fd4f03bb0dff34 (diff) | |
| download | idest-19aa76addd806881d9e881a61f094ce125ba5fcc.tar.gz idest-19aa76addd806881d9e881a61f094ce125ba5fcc.tar.bz2 | |
Minor fix
* scheme/idest/format/pic.scm: Remove unneeded function.
| -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)) |