module error pasted by rien on Fri Nov 22 20:46:42 2013


(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")	<--
|#
[ permalink | raw ]

no title added by anonymous on Fri Nov 22 20:49:31 2013

#|
Warning: reference to possibly unbound identifier `sql:open-database' in:
Warning:    open-db

Warning: reference to possibly unbound identifier `sql-de-lite'

Warning: reference to possibly unbound identifier `prefix'

Warning: reference to possibly unbound identifier `use'

Error: module unresolved: global

	Call history:

	<syntax>	  (module global (export open-db) (import scheme) (use (prefix sql-de-lite sql:)) (define (open-db) (s......
	<syntax>	  (##core#module global (export open-db) (import scheme) (use (prefix sql-de-lite sql:)) (define (open......
	<syntax>	  (import scheme)
	<syntax>	  (##core#undefined)
	<syntax>	  (use (prefix sql-de-lite sql:))
	<syntax>	  (prefix sql-de-lite sql:)
	<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")	<--
|#
[ permalink | raw ]