giving up with being able to define resources in expression position, and going back to define-resource

examples/using-resources.rkt

@@ -1,4 +1,10 @@
 #lang planet dyoo/whalesong
 
 (require (planet dyoo/whalesong/resource))
-(file-resource "images/humpback.jpg")
+(define-resource whale-resource "images/humpback.jpg")
+
+#;(define whale-image 
+    (image-url
+     (resource->url whale-resource)))
+
+#;whale-image

lang/kernel.rkt

@@ -61,7 +61,7 @@
          e
          null
          #%plain-module-begin
-	 (rename-out [my-module-begin #%module-begin])
+	 #%module-begin
 	 #%datum
 	 #%app
 	 #%top-interaction
@@ -98,6 +98,7 @@
 	 unless
 	 require
 	 for-syntax
+         for-template
 	 define-for-syntax
 	 begin-for-syntax
 	 prefix-in
@@ -438,17 +439,4 @@ symbol->string
 
 
 
-
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-
-(define-syntax (my-module-begin stx)
-  (syntax-case stx ()
-    [(_ body ...)
-     (with-syntax ([(expanded-body ...) 
-                    (local-expand #'(body ...)
-                                  'module-begin
-                                  #f)])
-       (syntax/loc stx
-         (#%module-begin expanded-body ...)))]))

resource/compile-time.rkt

@@ -1,29 +1,26 @@
 #lang s-exp "../lang/kernel.rkt"
-
+;; Macros for recording the definition of resources in a program.
-(provide file-resource)
+(require (for-syntax racket/base
-
+                     racket/path
+                     syntax/parse))
+                     
+(provide define-resource)
 
 (require "structs.rkt")
 
-;; Macros for recording the definition of resources in a program.
-(require (for-syntax racket/base))
-
 
 ;; file-resource:
 ;; 
-(define-syntax (file-resource stx)
+(define-syntax (define-resource stx)
-  (syntax-case stx ()
+  (syntax-parse stx 
-    [(_ path)
+    [(_ name:id path:str)
-     (let ([dontcare
+     (with-syntax ([normal-path 
-            (syntax-local-lift-expression #'(begin
+                    (normalize-path (build-path
-                                              (begin-for-syntax
+                                     (or (current-load-relative-directory)
-                                               (printf "Compile time code executing"))
+                                         (current-directory))
-                                              (void)))])
+                                     (syntax-e #'path)))])
        (syntax/loc stx
-         (let-syntax ([compile-time-code
+         (begin (begin-for-syntax
-                       (lambda (stx)
+                  (printf "compile time code executing; we need to save ~s\n"
-                         (printf "compile time code executing\n")
+                          normal-path))
-                         #'(void))])
+                (define name (resource path)))))]))
-           (begin
-             ;;dontcare
-             (resource path)))))]))