gentoo-overlay/dev-lang/gforth/files/gforth.el-gentoo.patch

--- gforth-0.6.2-orig/gforth.el	2003-08-05 11:12:47.000000000 +0200
+++ gforth-0.6.2/gforth.el	2008-09-06 08:29:44.000000000 +0200
@@ -61,9 +61,10 @@
       (progn (string-match "^[0-9]+" emacs-version)
 	     (string-to-int (match-string 0 emacs-version)))))
 
-(defun forth-emacs-older (major minor)
-  (or (< emacs-major-version major)
-      (and (= emacs-major-version major) (< emacs-minor-version minor))))
+(eval-when-compile 
+  (defun forth-emacs-older (major minor)
+    (or (< emacs-major-version major)
+	(and (= emacs-major-version major) (< emacs-minor-version minor)))))
 
 ;; Code ripped from `subr.el' for compatability with Emacs versions
 ;; prior to 20.1
@@ -79,8 +80,9 @@
 
 ;; `no-error' argument of require not supported in Emacs versions
 ;; prior to 20.4 :-(
-(defun forth-require (feature)
-  (condition-case err (require feature) (error nil)))
+(eval-and-compile
+  (defun forth-require (feature)
+    (condition-case err (require feature) (error nil))))
 
 (require 'font-lock)
 
@@ -1702,6 +1704,6 @@
 	  (error "No current process.  See variable `forth-process-buffer'"))))
   )  ; (memq 'comint features)
 
-(provide 'forth-mode)
+(provide 'gforth)
 
 ;;; gforth.el ends here