[runtime-path
tom@zwizwa.be**20080725182220] move ./bin/planet-test ./bin/planet-test.ss
hunk ./Makefile 1
-.PHONY: all test clean install scat macro pic18 doc planet-test planet-untest planet-package
+.PHONY: test clean install scat macro pic18 doc planet-test planet-untest planet-package staapl
addfile ./bin/planet-test
hunk ./bin/planet-test 1
-
+(require (file "../staapl/prj/version.ss"))
+(eval `(require (planet "staapl.ss" ("zwizwa" "staapl.plt" ,@(staapl-planet-version)))))
hunk ./bin/planet-test.ss 1
-(require (file "../staapl/prj/version.ss"))
-(eval `(require (planet "staapl.ss" ("zwizwa" "staapl.plt" ,@(staapl-planet-version)))))
+
rmfile ./bin/planet-test.ss
hunk ./bin/version 1
+;; -*- scheme -*-
hunk ./bin/version 6
-(define planet-version '(1 1))
+(define planet-version '(1 2))
hunk ./bin/version 37
-(patch "staapl/prj/version.ss" 
-       (pretty-print
-        `(module version scheme/base
-           (provide (all-defined-out))
-           (define (staapl-planet-version) ',planet-version))))
-
hunk ./bin/version 40
-
hunk ./doc/staapl-blog.txt 1053
-Hello Folks,
+Hello folks,
hunk ./staapl/prj/load-staapl.ss 1
-#lang scheme/base
-(require "version.ss") ;; generated
-(provide (all-defined-out))
-(define (staapl->module-path file)
-  `(planet ,file ("zwizwa" "staapl.plt" ,@(staapl-planet-version))))
rmfile ./staapl/prj/load-staapl.ss
hunk ./staapl/prj/namespace.ss 41
- staapl-resolve
- 
hunk ./staapl/prj/namespace.ss 105
-;; Planet references the universal access mechanism for all staapl
-;; code. During packaging, staapl's planet version number will be
-;; hardcoded in the source tree. This number is necessary to locate
-;; the code for the reflective operations.
-(require "load-staapl.ss")
-(define staapl-resolve
-  (make-parameter staapl->module-path))
-
hunk ./staapl/prj/namespace.ss 108
+
+(require scheme/runtime-path)
+(define-runtime-path shared "shared.ss")
+;; (printf "shared: ~a\n" shared)
+
hunk ./staapl/prj/namespace.ss 120
-   `(,((staapl-resolve) "prj/shared.ss"))
+   `(,shared)
hunk ./staapl/prj/pic18.ss 7
+ scheme/runtime-path
hunk ./staapl/prj/pic18.ss 15
+(define-runtime-path pic18 "../pic18.ss")
+  
hunk ./staapl/prj/pic18.ss 18
-  (make-prj-namespace `(,((staapl-resolve) "pic18.ss"))))
+  (make-prj-namespace (list pic18)))
hunk ./staapl/staapl.ss 23
- )
-
-
-;; Install locally.
-
+ (for-syntax
+  scheme/base)
hunk ./staapl/staapl.ss 26
+ )
hunk ./staapl/staapl.ss 28
- 
+;; (require scheme/runtime-path)
+;; (define-runtime-path bla "foo.txt")
+;; (display bla)
+;; (newline)
hunk ./staapl/tools/misc.ss 51
-
+(define (resolve-module m)
+  ((current-module-name-resolver) m #f #f #f))
hunk ./www/index.html 89
-<a href="http://zwizwa.be/archive/staapl-0.5.0.tar.gz">staapl-0.5.0.tar.gz</a>. However,
+<a href="http://zwizwa.be/archive/staapl-0.5.1.tar.gz">staapl-0.5.1.tar.gz</a>. However,