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:
Kevin Cozens 2008-01-15 03:51:05 +00:00 committed by Kevin Cozens
parent 0b74e6e1b5
commit b9fcccb246
2 changed files with 6 additions and 2 deletions

View file

@ -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):

View file

@ -330,8 +330,7 @@
)
(define (prog1 form1 . form2)
(let ((a))
(set! a form1)
(let ((a form1))
(if (not (null? form2))
form2
)