diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2011-11-21 21:55:13 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2011-11-22 00:22:46 +0100 |
| commit | e0a9f02224cdcf0e8e24616038aca905d31b60a7 (patch) | |
| tree | d813c57eef79475430b0a0df0ca902344cd86b5e /module/system/base/target.scm | |
| parent | f0d1bacd786147c73862ab3f5ca2155b6f88888e (diff) | |
| download | guile-e0a9f02224cdcf0e8e24616038aca905d31b60a7.tar.gz | |
Fix `validate-target' in (system base target).
* module/system/base/target.scm (validate-target): Accept any tuple with
at least 3 parts.
* test-suite/tests/asm-to-bytecode.test (test-triplet): New procedure.
("cross-compilation"): New test prefix.
Diffstat (limited to 'module/system/base/target.scm')
| -rw-r--r-- | module/system/base/target.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/base/target.scm b/module/system/base/target.scm index 573ccca46..68c92d854 100644 --- a/module/system/base/target.scm +++ b/module/system/base/target.scm @@ -42,7 +42,7 @@ (define (validate-target target) (if (or (not (string? target)) (let ((parts (string-split target #\-))) - (or (< 3 (length parts)) + (or (< (length parts) 3) (or-map string-null? parts)))) (error "invalid target" target))) |