(string-prefix? "Ubuntu " os))
(define (ubuntu-os-codename os)
- (cond ((string=? "Ubuntu 17.10" os) "artful")
+ (cond ((string=? "Ubuntu 18.04" os) "bionic")
+ ((string=? "Ubuntu 17.10" os) "artful")
((string=? "Ubuntu 17.04" os) "zesty")
((string=? "Ubuntu 16.10" os) "yakkety")
((string=? "Ubuntu 16.04" os) "xenial")
(else (error "Unexpected Ubuntu OS:" os))))
(define (ubuntu-os-version os)
- (cond ((string=? "Ubuntu 17.10" os) "17.10")
+ (cond ((string=? "Ubuntu 18.04" os) "18.04")
+ ((string=? "Ubuntu 17.10" os) "17.10")
((string=? "Ubuntu 17.04" os) "17.04")
((string=? "Ubuntu 16.10" os) "16.10")
((string=? "Ubuntu 16.04" os) "16.04")