From 4cdc1ffbeda3d1704386117babadf481057ca8ba Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Sat, 29 Jan 1994 21:37:38 +0000 Subject: [PATCH] Fixed for #F != '() --- v7/src/runtime/graphics.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/graphics.scm b/v7/src/runtime/graphics.scm index 03655dc53..e5888a52d 100644 --- a/v7/src/runtime/graphics.scm +++ b/v7/src/runtime/graphics.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: graphics.scm,v 1.9 1993/11/04 22:42:45 cph Exp $ +$Id: graphics.scm,v 1.10 1994/01/29 21:37:38 adams Exp $ Copyright (c) 1989-91 Massachusetts Institute of Technology @@ -406,7 +406,7 @@ MIT in each case. |# (draw (operation 'draw)) (draw-subimage (operation 'draw-subimage)) (fill-from-byte-vector (operation 'fill-from-byte-vector))) - (if operations + (if (not (null? operations)) (error "Extra image type operations: " operations) (%make-image-type create destroy width height -- 2.25.1