mirror of
https://gitlab.gnome.org/GNOME/gimp
synced 2024-10-22 04:22:29 +00:00
Fixed definition of 'prog1' due to recent fixes enforcing R5RS syntax for
2008-01-14 Kevin Cozens <kcozens@cvs.gnome.org> * plug-ins/script-fu/scripts/script-fu-compat.init: Fixed definition of 'prog1' due to recent fixes enforcing R5RS syntax for 'let'. svn path=/trunk/; revision=24612
This commit is contained in:
parent
0b74e6e1b5
commit
b9fcccb246
|
@ -1,3 +1,8 @@
|
|||
2008-01-14 Kevin Cozens <kcozens@cvs.gnome.org>
|
||||
|
||||
* plug-ins/script-fu/scripts/script-fu-compat.init: Fixed definition
|
||||
of 'prog1' due to recent fixes enforcing R5RS syntax for 'let'.
|
||||
|
||||
2008-01-15 Michael Natterer <mitch@gimp.org>
|
||||
|
||||
* app/tools/gimpimagemaptool.c (gimp_image_map_tool_preview):
|
||||
|
|
|
@ -330,8 +330,7 @@
|
|||
)
|
||||
|
||||
(define (prog1 form1 . form2)
|
||||
(let ((a))
|
||||
(set! a form1)
|
||||
(let ((a form1))
|
||||
(if (not (null? form2))
|
||||
form2
|
||||
)
|
||||
|
|
Loading…
Reference in a new issue