Changeset 4668

Timestamp:

11/07/03 19:14:00 (18 years ago)

Author:

piso

Message:

We don't need COMPILE-RETURN, since RETURN is a macro.

File:

• trunk/j/src/org/armedbear/lisp/jvm.lisp (modified) (3 diffs)

trunk/j/src/org/armedbear/lisp/jvm.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: jvm.lisp,v 1.13 2003-11-07 16:17:24 piso Exp $
+;;; $Id: jvm.lisp,v 1.14 2003-11-07 19:14:00 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -1666 +1666 @@
             (error "COMPILE-FUNCTION: unsupported case: ~S" form)))))
 
-(defun compile-return (form)
-   (let* ((rest (cdr form))
-          (block-label nil)
-          (block-exit (cdr (assoc block-label *blocks*)))
-          (result-form (car rest)))
-     (unless block-exit
-       (error "no block named ~S is currently visible" block-label))
-     (compile-form result-form)
-     (emit 'goto `,block-exit)))
-
 (defun compile-return-from (form)
    (let* ((rest (cdr form))
@@ -2013 +2003 @@
                           progn
                           quote
-                          return
                           return-from
                           setq