← Back to branch summary

~ubuntu-branches/ubuntu/vivid/libctl/vivid

« back to all changes in this revision

Viewing changes to base/io-vars.scm

  • Committer: Package Import Robot
  • Author(s): Thorsten Alteholz
  • Date: 2012-07-24 18:00:26 UTC
  • mto: (11.1.1 experimental) (1.3.1)
  • mto: This revision was merged to the branch mainline in revision 12.
  • Revision ID: package-import@ubuntu.com-20120724180026-d5yjvlshxjrvu1kk
Tags: upstream-3.2
Import upstream version 3.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
base/io-vars.scm
1
1
; libctl: flexible Guile-based control files for scientific software 
2
 
; Copyright (C) 1998-2009, Steven G. Johnson
 
2
; Copyright (C) 1998-2012 Massachusetts Institute of Technology and Steven G. Johnson
3
3
;
4
4
; This library is free software; you can redistribute it and/or
5
5
; modify it under the terms of the GNU Lesser General Public
24
24
 
25
25
(define params-set-list '())
26
26
(defmacro-public define-param (name value)
27
 
  `(if (not (defined? (quote ,name)))
28
 
       (define ,name ,value)))
 
27
  `(define ,name (if (defined? (quote ,name)) ,name ,value)))
29
28
 
30
29
(defmacro-public set-param! (name value)
31
30
  `(if (not (memq (quote ,name) params-set-list))