Commit 56d911df authored by Robert Ricci's avatar Robert Ricci

Add functions to output text only in apt mode or cloudlab mode

parent c8843591
......@@ -15,7 +15,23 @@
'cloudlab
'apt))
(define (cl?) (if (equal? tb-mode 'cloudlab) #t #f))
(define (apt?) (if (equal? tb-mode 'apt) #t #f))
(define (cl?) (if (equal? tb-mode 'cloudlab) #t #f))
(define (apt-vs-cl apt-version cl-version)
(if (apt?)
apt-version
cl-version))
(define (apt-only stuff)
(if (apt?)
stuff
""))
(define (cl-only stuff)
(if (cl?)
stuff
""))
(define apt-base-url
(if (cl?)
......
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