新規作成 | 管理 | 差分 | 検索 | FrontPage | ページ一覧 | 更新履歴 | RSS

PlugIn/set! - 変数への破壊的【に/な】代入

管理

変数への破壊的【に/な】代入

$plugin->special("set!",
  "変数への破壊的【に/な;間違っていたので直します(SHIMADA)】代入",
  sub {
    my ($var, $val) = @_;
    die "$var is not a variable." unless $var =~ /^\$.+/;
    ($val) = $plugin->evl($val);
    $plugin->set_var($var, $val);
  }
);

使用例

管理

(let (($a 0))
  $a
  (set! $a 1)
  $a
  (set! $a (+ $a 5))
  $a)
=> 0 1 6

※ set! は値を返しません。

let で宣言していない変数を set! しようとするとエラーになります。

(let (($a 0))
  (set! $b 1))
=> [Error] (set! $b 1): Undefined variable: $b at ../../lib/Plugin.pm line 154.


あら? error? あ、わざとなのかな。

あの…「変数への破壊的に代入」って日本語が壊れてる気がするのですが…。 「変数へ<del>の</del>」? 「破壊的 」?(意味が解ってないので、日本語すらも直せないらしい…)

errorはわざとです。壊れた日本語は【/真鵺道的に】直しました。