   completed (or after setup completes if called during the setup
   method). "
   []
-  (applet-safe-exit (current-applet)))
+  (applet-close (current-applet)))
 
 (defn
   ^{:requires-bindings false

  ([max] (.random (current-applet) (float max)))
  ([min max] (.random (current-applet) (float min) (float max))))


(defn
  ^{:requires-bindings true

  and right are the minimum and maximum x values, top and bottom are
  the minimum and maximum y values, and near and far are the minimum
  and maximum z values. If no parameters are given, the default is
  used: (ortho 0 width 0 height -10 10)"
  ([] (.ortho (current-surface)))
  ([left right bottom top]
   (.ortho (current-surface) (float left) (float right) (float bottom) (float top)))
  ([left right bottom top near far]
     (.ortho (current-surface) (float left) (float right) (float bottom) (float top) (float near) (float far))))

