suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix `planet/version'

Browse Source 
Closes PR 13975
This commit is contained in:
Matthew Flatt 2013-08-20 06:42:44 -06:00
parent e02e04ff2a
commit 9e6809caba
3 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
pkgs/planet-lib/planet/private/version.rkt
View File

@ -4,6 +4,7 @@
racket/match racket/match
unstable/syntax unstable/syntax
racket/syntax racket/syntax
racket/private/this-expression-source-directory
planet/planet-archives) planet/planet-archives)
(provide this-package-version (provide this-package-version

4
pkgs/racket-pkgs/racket-test/tests/planet/examples/dummy-package/me.rkt Normal file
View File

@ -0,0 +1,4 @@
#lang racket/base
(require planet/version)
(provide me)
(define me (this-package-version))

2
pkgs/racket-pkgs/racket-test/tests/planet/lang.rkt
View File

@ -15,6 +15,8 @@
=> (void) => (void)
(dynamic-require `(file ,(in-here "examples/dummy-module.rkt")) 'result) (dynamic-require `(file ,(in-here "examples/dummy-module.rkt")) 'result)
=> '(successful test result) => '(successful test result)
(dynamic-require '(planet plt/dummy-package/me) 'me)
=> '("plt" "dummy-package.plt" 1 0)
(remove-hard-link "plt" "dummy-package.plt" 1 0) (remove-hard-link "plt" "dummy-package.plt" 1 0)
=> (void) => (void)