[armedbear-cvs] r12137 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Sep  6 10:56:22 2009
New Revision: 12137

Log:
Remove stale BLOCK-NODE comments and move it to
where it should be according to other comments.

Modified:
   trunk/abcl/src/org/armedbear/lisp/jvm.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/jvm.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/jvm.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/jvm.lisp	Sun Sep  6 10:56:22 2009
@@ -385,7 +385,14 @@
   ;; fixme? tag gotten from the catch-form
   )
 
-;; block-node belongs here; it's down below for historical raisins
+(defstruct (block-node (:conc-name block-)
+                       (:include control-transferring-node)
+                       (:constructor %make-block-node (name)))
+  name  ;; Block name
+  (exit (gensym))
+  target
+  ;; True if there is a non-local RETURN from this block.
+  non-local-return-p)
 
 ;; binding blocks: LET, LET*, FLET, LABELS, M-V-B, PROGV, LOCALLY
 
@@ -425,17 +432,6 @@
                               (:include protected-node)))
 
 
-;; Used to wrap TAGBODYs, UNWIND-PROTECTs and LET/LET*/M-V-B forms as well as
-;; BLOCKs per se.
-(defstruct (block-node (:conc-name block-)
-                       (:include control-transferring-node)
-                       (:constructor %make-block-node (name)))
-  name  ;; Block name
-  (exit (gensym))
-  target
-  ;; True if there is a non-local RETURN from this block.
-  non-local-return-p)
-
 (defvar *blocks* ())
 
 (defknown make-block-node (t) t)