From: rich <rich>
Date: Sun, 30 Sep 2007 14:37:00 +0000 (+0000)
Subject: Fix CLOSE
X-Git-Url: http://git.annexia.org/?p=jonesforth.git;a=commitdiff_plain;h=bedb4b2f3f229eb41f7eb6af84aff5d1d660c805

Fix CLOSE
---

diff --git a/jonesforth.f b/jonesforth.f
index 711cf85..f3eebe3 100644
--- a/jonesforth.f
+++ b/jonesforth.f
@@ -2,7 +2,7 @@
 \	A sometimes minimal FORTH compiler and tutorial for Linux / i386 systems. -*- asm -*-
 \	By Richard W.M. Jones <rich@annexia.org> http://annexia.org/forth
 \	This is PUBLIC DOMAIN (see public domain release statement below).
-\	$Id: jonesforth.f,v 1.11 2007-09-29 23:13:45 rich Exp $
+\	$Id: jonesforth.f,v 1.12 2007-09-30 14:37:00 rich Exp $
 \
 \	The first part of this tutorial is in jonesforth.S.  Get if from http://annexia.org/forth
 \
@@ -1285,7 +1285,7 @@
 ;
 
 : CLOSE		( fd -- ret )
-	0 ROT 0 ROT
+	0 SWAP 0 ROT
 	SYS_CLOSE
 	SYSCALL3
 ;