(module global (export open-db)
  (import scheme)
  (import (prefix sql-de-lite sql:))
  (define (open-db)
    (sql:open-database "/Users/user1/Documents/scheme/my.db")))

(import global)
(set! *db* (open-db))

#|
Error: unbound variable: sql-de-lite#open-database

	Call history:

	<syntax>	  (import scheme)
	<syntax>	  (##core#undefined)
	<syntax>	  (import (prefix sql-de-lite sql:))
	<syntax>	  (##core#undefined)
	<syntax>	  (define (open-db) (sql:open-database "/Users/user1/Documents/scheme/my.db"))
	<syntax>	  (##core#set! open-db (##core#lambda () (sql:open-database "/Users/user1/Documents/scheme/my.db")))
	<syntax>	  (##core#lambda () (sql:open-database "/Users/user1/Documents/scheme/my.db"))
	<syntax>	  [open-db] (##core#begin (sql:open-database "/Users/user1/Documents/scheme/my.db"))
	<syntax>	  [open-db] (sql:open-database "/Users/user1/Documents/scheme/my.db")
	<syntax>	  (import global)
	<syntax>	  (##core#undefined)
	<syntax>	  (set! *db* (open-db))
	<syntax>	  (##core#set! *db* (open-db))
	<syntax>	  (open-db)
	<eval>	  (open-db)
	<eval>	  [open-db] (sql:open-database "/Users/user1/Documents/scheme/my.db")	<--
|#