--- gforth/oldlib.fs	2003/08/25 14:17:46	1.2
+++ gforth/oldlib.fs	2007/12/31 18:40:24	1.7
@@ -1,12 +1,12 @@
 \ lib.fs	shared library support package 		11may97py
 
-\ Copyright (C) 1995,1996,1997,1998,2000,2003 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2007 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
 \ Gforth is free software; you can redistribute it and/or
 \ modify it under the terms of the GNU General Public License
-\ as published by the Free Software Foundation; either version 2
+\ as published by the Free Software Foundation, either version 3
 \ of the License, or (at your option) any later version.
 
 \ This program is distributed in the hope that it will be useful,
@@ -15,8 +15,7 @@
 \ GNU General Public License for more details.
 
 \ You should have received a copy of the GNU General Public License
-\ along with this program; if not, write to the Free Software
-\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
+\ along with this program. If not, see http://www.gnu.org/licenses/.
 
 Create icall-table
     ] icall0 ;s icall1 ;s icall2 ;s icall3 ;s icall4 ;s icall5 ;s icall6 ;s
@@ -30,6 +29,8 @@ Create fcall-table
 Variable libs 0 libs !
 \G links between libraries
 
+Variable legacy  legacy off
+
 : @lib ( lib -- )
     \G obtains library handle
     cell+ dup 2 cells + count open-lib
@@ -40,6 +41,14 @@ Variable libs 0 libs !
     cell+ tuck 2 cells + count rot cell+ @
     lib-sym  dup 0= abort" Proc not found!" swap cell+ ! ;
 
+-1 Constant <addr>
+ 0 Constant <int>
+ 1 Constant <float>
+ 2 Constant <void>
+ 4 Constant <int...>
+ 5 Constant <float...>
+ 6 Constant <void...>
+
 : proc, ( pars type lib addr -- )
     \G allocates and initializes proc stub
     \G stub format:
@@ -47,18 +56,11 @@ Variable libs 0 libs !
     \G    address of proc
     \G    offset in lcall1-table to call proc
     \G    OS name of symbol as counted string
+    legacy @ IF  (int) -rot  THEN
     here 2dup swap 2 cells + dup @ A, !
     2swap  1 and  IF  fcall-table  ELSE  icall-table  THEN  swap
     cells 2* + , 0 , bl sword string, @proc ;
 
--1 Constant (addr)
- 0 Constant (int)
- 1 Constant (float)
- 2 Constant (void)
- 4 Constant (int...)
- 5 Constant (float...)
- 6 Constant (void...)
-
 : proc:  ( pars type lib "name" "string" -- )
     \G Creates a named proc stub
     Create proc,