LIBRARY gives a stack underflow if the DLL has already been referenced.

For example LIBRARY KERNEL32.DLL will underflow.

Here is the corrected code:

: LIBRARY ( -- )
   DLLS ?DEFINED ?EXIT
 \ DLLS ?DEFINED IF DROP EXIT THEN \ Bug Fix 12/7/2008 MAG
   BL WORD COUNT 2DUP UPCASE DLLS (WID-CREATE)
   0 , @REQUIRED , LAST @ (LOAD-DLL) ;

Best regards,
Mike Ghan
----------------------------------------------------------------------
sftalk_at_forth.com The SwiftForth programming discussion email list
To unsubscribe, send subject "unsubscribe" to sftalk-request_at_forth.com
For list command help, send subject "help" to sftalk-request_at_forth.com
Message archives are located at http://www.forth.com/archive/sftalk
----------------------------------------------------------------------
This list is a forum for SwiftForth users. For product support and
bug reports, please send email to support_at_forth.com
----------------------------------------------------------------------
Received on Sun Dec 07 2008 - 09:20:14 PST