← Back to branch summary

~ubuntu-branches/ubuntu/oneiric/gimp/oneiric-security

« back to all changes in this revision

Viewing changes to plug-ins/script-fu/scripts/script-fu-compat.init

  • Committer: Package Import Robot
  • Author(s): Sebastien Bacher
  • Date: 2010-07-12 15:08:08 UTC
  • mfrom: (1.1.23) (0.4.6 sid)
  • Revision ID: package-import@ubuntu.com-20100712150808-db9xqgtxrvpyl3g2
Tags: 2.6.10-1ubuntu1
Resync on Debian, dropping changes which are in the new version

Show diffs side-by-side

added added

removed removed

Lines of Context:
plug-ins/script-fu/scripts/script-fu-compat.init
129
129
;may be useful enough to keep around
130
130
 
131
131
(define (delq item lis)
132
 
  (let ((l))
133
 
    (if (null? lis)
134
 
      (set! l '())
135
 
      (begin
136
 
        (set! l (car lis))
 
132
  (let ((l '()))
 
133
    (unless (null? lis)
 
134
      (while (pair? lis)
 
135
        (if (<> item (car lis))
 
136
          (set! l (append l (list (car lis))))
 
137
        )
137
138
        (set! lis (cdr lis))
138
 
        (while (not (null? lis))
139
 
          (if (not (= item (car lis)))
140
 
            (set! l (append l (list (car lis))))
141
 
          )
142
 
          (set! lis (cdr lis))
143
 
        )
144
139
      )
145
140
    )
146
141
 
158
153
        (start 0)
159
154
        (end (string-length str))
160
155
        (i start)
161
 
        (l)
 
156
        (l '())
162
157
        )
163
158
 
164
159
    (if (= seplen 0)
290
285
  (define (fread-get-chars count file)
291
286
    (let (
292
287
         (str "")
293
 
         (c)
 
288
         (c 0)
294
289
         )
295
290
 
296
291
      (while (> count 0)