From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Sun, 11 Jan 2009 16:54:49 +0000 (-0600)
Subject: L-system: Call 'set-color' in 'restore-turtle'
X-Git-Tag: 0.94~1877^2~266^2~1^2~4
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=9efc31186ec8987282a43ccdb36876805eeba1fb

L-system: Call 'set-color' in 'restore-turtle'
---

diff --git a/extra/L-system/L-system.factor b/extra/L-system/L-system.factor
index 5bc7ce1db6..0dbf94b1c6 100644
--- a/extra/L-system/L-system.factor
+++ b/extra/L-system/L-system.factor
@@ -207,7 +207,8 @@ DEFER: default-L-parser-values
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 : save-turtle    ( turtle -- turtle ) dup clone over saved>> push ;
-: restore-turtle ( turtle -- turtle )                saved>> pop  ;
+
+: restore-turtle ( turtle -- turtle ) saved>> pop dup color>> set-color ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!