Commit f0314668 authored by Erick's avatar Erick

nop

parent afd58881
......@@ -36,11 +36,12 @@ LALR: The Dominique Boucher LALR Package
- Home Page: http://www.iro.umontreal.ca/~boucherd/Lalr/documentation/lalr.html
C/INVOKE: a library for connecting to C libraries at runtime
============================================================
- Version: 1.0
- License: 3 clauses BSD
- Home Page: http://www.nongnu.org/cinvoke/index.html
libffi - a portable foreign function interface library
======================================================
- Version 3.0.5
- License: Free (BSD like)
- Home Page: http://sourceware.org/libffi/
+++++++++++++++++++++++++++++++++++
......
;;;;
;;;; load.stk -- Extended load function
;;;;
;;;; Copyright 2000-2007 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;; Copyright 2000-2008 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;;
;;;;
;;;; This program is free software; you can redistribute it and/or modify
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 17-May-2000 14:55 (eg)
;;;; Last file update: 4-Dec-2007 10:13 (eg)
;;;; Last file update: 5-May-2008 10:26 (eg)
;;;;
......@@ -34,20 +34,27 @@
(define *load-verbose* #f)
(define *load-path* '()) ;; initialized later
;======================================================================
;
; *load-path* construction
;
;======================================================================
(define (%build-path-from-shell-variable var)
#|
<doc EXT build-path-from-shell-variable
* (build-path-from-shell-variable var)
*
* TODO
doc>
|#
(define (build-path-from-shell-variable var)
(let ((path (getenv var)))
(if path
(string-split path *path-separator*)
'())))
;======================================================================
;
; *load-path* construction
;
;======================================================================
(set! *load-path*
(let ((user-path (%build-path-from-shell-variable "STKLOS_LOAD_PATH")))
(let ((user-path (build-path-from-shell-variable "STKLOS_LOAD_PATH")))
(if (null? user-path)
(let ((prefix (%library-prefix))
(release (version)))
......
This diff is collapsed.
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment