From 28de9aeb84e4257773b6d7f4c4cb04a0c1e10d40 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Sun, 16 Jun 2024 18:40:34 -0400
Subject: Deprecate '-l' as a command line flag but instead support 'use
 -lblah'

---
 typecheck.c | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'typecheck.c')

diff --git a/typecheck.c b/typecheck.c
index f7f4ccc7..d3ce2da6 100644
--- a/typecheck.c
+++ b/typecheck.c
@@ -351,6 +351,9 @@ void bind_statement(env_t *env, ast_t *statement)
         break;
     }
     case Use: case Import: {
+        if (statement->tag == Use && strncmp(Match(statement, Use)->name, "-l", 2) == 0)
+            break;
+
         env_t *module_env = load_module(env, statement);
         for (table_t *bindings = module_env->locals; bindings != module_env->globals; bindings = bindings->fallback) {
             for (int64_t i = 1; i <= Table$length(*bindings); i++) {
-- 
cgit v1.2.3